home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / peek.sys < prev    next >
Text File  |  1991-04-12  |  1KB  |  42 lines
  1. Article 1556 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!pur-ee!mentor.cc.purdue.edu!noose.ecn.purdue.edu!iuvax!mailrus!cs.utexas.edu!uunet!microsoft!alonzo
  3. From: alonzo@microsoft.UUCP (Alonzo GARIEPY)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: HP48: SYSEVAL PEEK
  6. Message-ID: <53610@microsoft.UUCP>
  7. Date: 16 Mar 90 21:43:16 GMT
  8. References: <53609@microsoft.UUCP>
  9. Reply-To: alonzo@microsoft.UUCP (Alonzo GARIEPY)
  10. Organization: Microsoft Corp., Redmond WA
  11. Lines: 27
  12.  
  13. Here is a SYSEVAL based PEEK program for the HP 48.  This technique
  14. was invented by Rick Grevelle for the HP 28.  The SYSEVAL addresses 
  15. were found by Dave Kaffine and myself.  This is reasonably fast and 
  16. requires no machine code.
  17.  
  18. PEEK  [CD20]
  19. <<    
  20.     10  -                      ;  Adjustment, 10 nybbles
  21.     # 4003h SYSEVAL            ;  Short integer, 00002
  22.     # 56B6h SYSEVAL DROP       ;  GET, address past 0001502A70
  23.     # 540BBh SYSEVAL           ;  Get contents
  24.     OBJ->                      ;  String->binary integer
  25. >>
  26.  
  27. But the program is imperfect.  There are 24 addresses for which it 
  28. does not work:
  29.  
  30. 0291B 0293D 0295F 02981 029A7 029C9 029F2 02A14 02A36 02A58 02A7E 02AA0 
  31. 02AC2 02AE4 02B06 02B28 02B4A 02B6C 02B92 02DA7 02DD6 02E52 02E77 02E9C
  32.  
  33. Each of these is 10 greater than the address of an object type.
  34.  
  35. All the usual caveats apply.  If you're going to mess with SYSEVALS
  36. or machine code, backup your HP 48 occasionally.
  37.  
  38. Alonzo Gariepy
  39. alonzo@microsoft
  40.  
  41.  
  42.